home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / BMWI.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  238b  |  19 lines
  1. cls
  2. open "d:\bmwi.sav" for binary access read as #1
  3. on error goto f
  4.  
  5. q=3
  6. get$ #1,q,d$
  7.  
  8.  
  9. while not eof(1)
  10.  get$ #1,4,x$
  11.  l&=CVL(x$)
  12.  IF l&>=100000 and l&<=2000000 then print q,l&
  13.  q=q+4
  14. wend
  15. f:
  16. close #1
  17. print "Okay"
  18. end
  19.